rm(list = ls())
library(WindR)
library(ggplot2)

# 从wind下载绘制了中国季度GDP序列
if (FALSE){
  w.start()
  ans<-w.edb('M5567876','1990-01-01','2021-06-22','Fill=Previous')
  picdata <- ans$Data
  ggplot(picdata, aes(x = DATETIME, y = CLOSE)) + geom_line() +
    labs(title = '中国季度GDP走势图', x = 'year', y = 'GDP') +
    theme_bw()
  ggsave('E:\\17_HuaDong\\teach\\MyLecture\\Econometrics_2/gdp.png')
  w.close()
}
